unit LT_Calendar;

interface
uses Classes, SysUtils,
      PluginElems;
type
  TLT_Calendar=class
  public
  function getCurrentDate():TDateTime;
  function getMinDate():TDateTime;
  function getMaxDate():TDateTime;
  procedure testAPI(list:TStrings);
  end;
implementation

{ TLT_Calendar }

function TLT_Calendar.getCurrentDate: TDateTime;
begin
Result:=AddinLT_GetCurrDate();
end;

function TLT_Calendar.getMaxDate: TDateTime;
begin
Result:=AddinLT_GetMaxDate();
end;

function TLT_Calendar.getMinDate: TDateTime;
begin
Result:=AddinLT_GetMinDate();
end;

procedure TLT_Calendar.testAPI(list: TStrings);
begin
list.add('=====Tasks.testAPI=====');
list.Add('current date:'+ DateTimeToStr(getCurrentDate()));
list.Add('min date:'+ DateTimeToStr(getMinDate()));
list.Add('max date:'+ DateTimeToStr(getMaxDate()));
list.add('=======================');
end;

end.
 